home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / lightwave / utilities / par251 / rexx / exportall.ddr < prev    next >
Text File  |  1993-12-04  |  3KB  |  92 lines
  1.  
  2. ==========================================================================
  3. 25 Read subscription article (text)
  4. .../Mailing Lists/Lightwave  (mail to: lightwave@bobsbox.rent.com)
  5. 21400.3.3.1781 PAR stills-->RGB batch script
  6. 11/29/93 23:53 82/ Jeric@cup.portal.com
  7. Lines 1 to 49 of 83 (59%)
  8. ------------------------
  9. Hi Guys & Gals!
  10.  
  11.         The appended AREXX script is useful in those times when
  12. you forget to set the ANIM gadget on your PAR.
  13.  
  14.         Read it carefully!  One line has to be changed if you are
  15. using a PAR s/w version earlier than 1.44!
  16.  
  17.         Enjoy!
  18.  
  19. ^^^^^^^^^^^^^^^^^^^^^^^^^^^^  CUT HERE ^^^^^^^^^^^^^^^^^^^^^^^^^^^
  20. /* ExportALL.REXX , exploring the wonderful world of SHOWDIR  */
  21.  
  22. /* For use with PAR s/w versions 1.44 and later. */
  23. /* Alter line 58 to "SAVE" rather than "EXPORT" for earlier
  24.         software versions.  */
  25.  
  26. /* This AREXX script converts all the stills in a given PAR
  27.         directory into RGB files on an AmigaDOS device.  Set your
  28.         PAR software to the AmigaDOS directory you want the RGB
  29.         files to go to. Set your CLI CD to the PAR directory.
  30.         Invoke this script from your CLI.
  31.  
  32.         This is for those of use who neglect to set the ANIM mode on
  33.         the PAR and wind up with 300 still frames instead of an
  34.         animation!  */
  35.  
  36. /****************************************************************** *
  37.   DIRECTIONS:
  38.              CD to the directory you want to export.                *
  39.              Invoke this AREXX script.                              *
  40. ******************************************************************* */
  41.  
  42. say "ExportAll.rexx here!"
  43.  
  44. /* Add appropriate libraries */
  45. if ~show('L', "rexxsupport.library") then do
  46.    /* if library is not open, try to open it */
  47.    if addlib('rexxsupport.library',0,-30,) then
  48.       say "Added rexxsupport.library."
  49.       else do
  50.         say "rexxsupport.library not available, quitting..."
  51.         exit 10
  52.         end
  53.       end
  54.  
  55. /* Get current directory */
  56. dirname=pragma('D')
  57. say "Looks like we're in" dirname
  58.  
  59. /*get dir, pad w/linefeeds, translate linefeeds>spaces, space>'80'x*/
  60. filelist=TRANSLATE(SHOWDIR(dirname,'f','0a'x),'80'x,'200a'x)
  61.  
  62. i=1
  63. DO i=1 TO WORDS(filelist)
  64.         filename = TRANSLATE((WORD(filelist,i)),'20'x, '80'x)
  65.         say "Working on " filename
  66.         call convert(filename)
  67.         end
  68. exit
  69. /* +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ */
  70.  
  71. CONVERT:
  72. PARSE ARG filename
  73. say "     In convert subroutine, filename=" filename
  74.  
  75. address "DDR"
  76. 'play' filename
  77. 'export'        /* change to SAVE for pre 1.44 s/w versions. */
  78. address command
  79. OPTIONS FAILAT 10
  80. RETURN
  81.  
  82. /* --------------------------------------------------------- */
  83. exit  /* Prevents program execution from falling into subroutines */
  84. wait:
  85. PARSE ARG pause
  86. call time 'R'   /* reset timer */
  87. say "Waiting for" pause" seconds."
  88. do while time('E')<pause
  89.    end
  90. return
  91.  
  92.